home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
LOGIC Apps
/
Logic-APPLE_II_APPS.iso
/
mac
/
LOGIC Apple II 5.25" Library - ProDOS
/
PRO001.dsk
/
FIN
/
DECPREC.RATE.bas
< prev
next >
Wrap
BASIC Source File
|
2012-02-16
|
495b
|
18 lines
10 PRINT "DEPRECIATION RATE"
20 PRINT
30 PRINT "ORIGINAL PRICE";
40 INPUT P
50 PRINT "RESALE PRICE";
60 INPUT T
70 PRINT "YEARS";
80 INPUT Y
89 REM - REM - CALCULATE DEPRECIATION RATE BY FORMULA, CONVERT TO PERCENT
90 D = 100 *(1 -(T/P) ^(1/Y))
99 REM - ROUND OFF, PRINT
100 PRINT "DEPRECIATION RATE ="; INT(1000 *D +.5)/1000;"%"
110 PRINT
119 REM - RESTART OR END PROGRAM?
120 PRINT "MORE DATA (1=YES, 0=NO)";
130 INPUT X
140 IF X = 1 THEN 20
150 PRINT "<CTRL-D>RUNHELLO"